(select-safe-coding-system):

Don't ask for confirmation of mismatch if find-file-literally was used.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 2be8e5f7f636eb1d7ffca8dc31639cd9aebb0997..f5820af3fc2d4f9160d223df2d8a488e7ab342a6 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -721,7 +721,9 @@ and TO is ignored."
        (setq coding-system buffer-file-coding-system))
     ;; Check we're not inconsistent with what `coding:' spec &c would
     ;; give when file is re-read.
-    (unless (stringp from)
+    ;; But don't do this if we explicitly ignored the cookie
+    ;; by using `find-file-literally'.
+    (unless (or (stringp from) find-file-literally)
       (let ((auto-cs (save-excursion
                       (save-restriction
                         (widen)